home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / qtw111 / samples / eachmov.frm < prev    next >
Text File  |  1993-03-15  |  2KB  |  61 lines
  1. VERSION 2.00
  2. Begin Form frmEachMov 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ControlBox      =   0   'False
  5.    Height          =   2805
  6.    Icon            =   0
  7.    Left            =   1035
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2400
  12.    ScaleWidth      =   2700
  13.    Top             =   1140
  14.    Visible         =   0   'False
  15.    Width           =   2820
  16.    Begin Timer tmrMovie 
  17.       Left            =   780
  18.       Top             =   960
  19.    End
  20.    Begin QTMovie QTMovie1 
  21.       AutoSize        =   -1  'True
  22.       BorderStyle     =   0  'None
  23.       GrowBox         =   -1  'True
  24.       Height          =   495
  25.       Left            =   0
  26.       MovieName       =   "(none)"
  27.       OffsetX         =   0
  28.       OffsetY         =   0
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Visible         =   -1  'True
  32.       Width           =   1215
  33.    End
  34. End
  35. Option Explicit
  36.  
  37. Sub QTMovie1_Click ()
  38. '   Stop the program when the user clicks on the movie
  39.     End
  40. End Sub
  41.  
  42. Sub QTMovie1_QTPlay (lPlayRate As Long, bContinue As Integer)
  43. '   When the current movie stops (lPlayRate = 0), increment
  44. '   MovieNum and play the next movie
  45.     If lPlayRate = 0& Then
  46.         MovieNum = MovieNum + 1
  47.  
  48. '       Set the timer interval to start the next movie
  49.         frmEachMov!tmrMovie.Interval = 1
  50.     End If
  51. End Sub
  52.  
  53. Sub tmrMovie_Timer ()
  54. '   The purpose of this timer is to start the current movie
  55. '   then shut itself off until the movie is done
  56.     PlayMovie
  57.     frmEachMov!QTMovie1.PlayRate = frmEachMov!QTMovie1.PreferredRate
  58.     tmrMovie.Interval = 0
  59. End Sub
  60.  
  61.